home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-09 / floppies.zip / FLOPPY.ZIP / FLPQUER2.SC < prev    next >
Text File  |  1992-03-14  |  1KB  |  46 lines

  1. ;--------FLPQUER2.SC
  2. ;---------------------------------MAIN MENU FOR SUB QUERY FUNCTION
  3. CLEARALL
  4. ;------------------------------DISPLAY OPENING SCREEN.
  5. STYLE ATTRIBUTE 30
  6. CLEAR
  7. @ 8,20
  8. ?? "FLOPPIES SUB LEVEL QUERY SELECTION PROGRAM"
  9. STYLE
  10. @ 10,1
  11. TEXT
  12.  
  13.                 SELECT OPTIONS FROM THE MENU ABOVE BY EITHER USING
  14.                 CURSOR KEYS TO HIGHLIGHT OR BY TYPING THE FIRST LETTER
  15.                 OF THE OPTION. MOVING THE CURSOR DISPLAYS A BRIEF
  16.                 DESCRIPTION OF EACH OPTION.
  17.  
  18. ENDTEXT
  19. ;-------------------SET UP MENU LOOP
  20. CHOICE = " "
  21. WHILE CHOICE <> "EXIT"
  22.       ;----------------SHOW OPTION MENU.
  23.       SHOWMENU
  24.           "DISK #" : "QUERY ANSWER TABLE BY DISK NUMBER ",
  25.           "DESC" : "QUERY ANSWER TABLE BY DESCRIPTION",
  26.           "CAT" : "QUERY ANSWER TABLE BY CATEGORY ",
  27.           "EXIT" : "RETURN TO MAIN MENU"
  28.       TO CHOICE
  29.       ;------------------PLAY SCRIPT OF CHOICE.
  30.       SWITCH
  31.          CASE CHOICE = "DISK #" :
  32.               PLAY "FLPANSQ1"
  33.          CASE CHOICE = "DESC" :
  34.               PLAY "FLPANSQ2"
  35.          CASE CHOICE = "CAT" :
  36.               PLAY "FLPANSQ3"
  37.      ENDSWITCH
  38. ENDWHILE
  39. ;------------------EXIT
  40. CLEAR
  41. STYLE REVERSE
  42. @ 12,24
  43. ?? "RETURNING TO MAIN MENU ..."
  44. PLAY "QUERFLOP"
  45.  
  46.